home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 28 / Mail_Madness_28_200x_-_Side_B.d64 / halloween (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  86 lines
  1. 10 dim xy(4,2),d(32,2),mh(32),ml(32)
  2. 20 sb=1024:cb=55296:v=53248:s=54272
  3. 30 for i=0 to 23:poke s+i,0:next i:poke s+24,15
  4. 40 poke s+5,24:poke s+6,238:poke 53280,8:poke 53281,0
  5. 50 print chr$(147);
  6. 55 print
  7. 60 print tab(6);"loading data ... please wait."
  8. 70 poke 2040,252:poke 2041,253
  9. 80 poke 2042,254:poke 2043,255
  10. 90 for i=1 to 4:read xy(i,1),xy(i,2):next i
  11. 100 for i=1 to 32:read d(i,1),d(i,2):next i
  12. 110 for i=1 to 32:read mh(i),ml(i):next i
  13. 120 for i=16128 to 16191:read a:poke i,a:poke i+64,a
  14. 130 poke i+128,a:poke i+192,a:next i
  15. 140 for i=16248 to 16255:read a
  16. 150 poke i,a:poke i+128,a:next i
  17. 160 print chr$(147);:read y:for x=0 to 760
  18. 170 if x<y then poke cb+x,0:poke sb+x,160:goto 190
  19. 180 read a:y=y+a
  20. 190 next x
  21. 200 for ro=2 to 12:for co=20-ro to 17+ro
  22. 210 poke sb+co+ro*40,160:poke cb+co+40*ro,11
  23. 220 next co,ro
  24. 230 for i=1 to 15:read x,y,a,b,ch,ko
  25. 240 for ro=x to y:for co=a to b
  26. 250 poke cb+co+ro*40,ko:poke sb+co+ro*40,ch
  27. 260 next co,ro,i
  28. 270 for i=1 to 3:read co,ro,ch,ko
  29. 280 poke cb+co+ro*40,ko:poke sb+co+ro*40,ch:next i
  30. 290 poke v+27,14:poke s+4,129
  31. 300 for t=1 to rnd(1)*100+25
  32. 310 poke 53281,rnd(1)*2
  33. 320 poke v+rnd(1)*4+39,rnd(1)*7+2
  34. 330 if rnd(1)>0.05 and t>1 then 350
  35. 340 poke s+1,rnd(1)*5+1
  36. 350 next t
  37. 360 poke s+11,128:poke 53281,0
  38. 370 for i=1 to 4:poke v+38+i,1
  39. 380 xy(i,2)=xy(i,2)+26:next i
  40. 390 poke v+21,0:k=2:for i=2 to 4
  41. 400 poke v+k,xy(i,1):poke v+k+1,xy(i,2):k=k+2:next i
  42. 410 poke s+24,5:poke s+4,17
  43. 420 poke s,239:poke v,80:poke v+1,20:poke v+21,15
  44. 430 for i=21 to 150:poke s+1,150-i
  45. 440 poke v+1,i:if i=96 then poke v+27,15
  46. 450 next i
  47. 460 poke v+1,xy(1,2):poke v,xy(1,1):poke s+4,129
  48. 470 poke s,239:for i=1 to 13:for j=1 to 4
  49. 480 poke v+j*2-1,xy(j,2):xy(j,2)=xy(j,2)-2:next j
  50. 490 poke s+1,i:next i:poke s,0:poke s+1,0:poke s+4,33
  51. 500 for i=1 to 32:j=0:for k=1 to 4
  52. 510 poke v+j,xy(k,1)-d(i,1):poke v+j+1,xy(k,2)-d(i,2)
  53. 520 j=j+2:next k
  54. 530 poke s+1,mh(i):poke s,ml(i)
  55. 540 if rnd(1)>0.8 then poke 56074,int(rnd(1)*2):poke 56075,peek(56074)
  56. 550 get k$:if k$<>"" then 290
  57. 560 next i:goto 500
  58. 1000 data 196,144,132,144,104,199,224,199
  59. 2000 data 0,-4,0,4,0,-4,0,4,0,2,0,2,0,-2,0,-2
  60. 2010 data -4,0,4,0,-4,0,4,0,2,0,2,0,-2,0,-2,0
  61. 2020 data 4,4,-4,-4,-4,-4,4,4,4,4,4,4,-4,-4,-4,-4
  62. 2030 data -4,4,4,-4,4,-4,-4,4,-4,4,-4,4,4,-4,4,-4
  63. 3000 data 8,97,9,104,9,247,9,247,9,104,9,104,8,97,8
  64. 3010 data 97,8,97,9,104,9,247,12,143,9,104,9,247,8
  65. 3020 data 97,8,97,9,247,11,48,12,143,12,143,12,143
  66. 3030 data 13,78,12,143,11,48,9,104,9,247,11,48,11
  67. 3040 data 48,11,48,12,143,11,48,9,247
  68. 4000 data 0,0,0,0,0,0,0,0,0,0,0,0,0,126,0,0,255,0
  69. 4010 data 3,255,128,7,255,192,15,255,224,30,56,240
  70. 4020 data 62,186,248,126,56,252,127,255,252,255
  71. 4030 data 255,254,255,255,255,255,255,255,255,255
  72. 4040 data 255,255,255,255,255,255,255,199,24,227
  73. 4050 data 199,24,227,0,255,56,231,28,56,231,28,0
  74. 5000 data 4,23,9,8,9,15,2,5,8,2,1,5,1,15,2,5,1,6
  75. 5010 data 1,5,1,2,16,4,3,3,4,3,6,16,6,1,5,7,6,1,19
  76. 5020 data 6,2,5,2,7,17,6,4,3,26,2,11,30,9,2,30,11,30
  77. 5030 data 11,316,0
  78. 6000 data 19,24,0,39,160,9,13,24,6,31,160,11
  79. 6010 data 18,24,17,20,160,9,18,21,8,14,214,5
  80. 6020 data 18,21,23,29,214,5,11,14,12,17,214,5
  81. 6030 data 11,14,20,25,214,5,18,21,9,13,32,0
  82. 6040 data 18,21,24,28,32,0,11,14,13,16,32,0,11
  83. 6050 data 14,21,24,32,0,12,12,7,7,219,2,11,11
  84. 6060 data 7,8,219,2,9,10,7,9,219,2,8,8,6,10,219
  85. 6070 data 2,18,19,46,8,19,19,46,8,20,21,174,9
  86.